home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 22 / Cream of the Crop 22.iso / program / eflibpt4.zip / DEMO / SCREEN / VIRTMERG.PAS < prev    next >
Pascal/Delphi Source File  |  1996-08-02  |  1KB  |  33 lines
  1. { Borland Pascal Extended Function Library - EFLIB (C) Johan Larsson, 1996
  2.   Demonstration; merging of virtual screens
  3.  
  4.   EFLIB IS PROTECTED BY THE COPYRIGHT LAW AND MAY NOT BE COPIED, SOLD OR
  5.   MANIPULATED. FOR MORE INFORMATION, SEE PROGRAM MANUAL! THIS DEMONSTRAT-
  6.   ION PROGRAM MAY FREELY BE USED AND DISTRIBUTED.                          }
  7.  
  8.  
  9. uses EFLIBSCR;
  10.  
  11.  
  12. var VirtualScreen, Anywhere : VirtualScreenObjectType;
  13.  
  14. begin
  15.      Screen.Clear;
  16.  
  17.      with VirtualScreen do begin
  18.           Initialize (1, 1, 20, 20); { Initialize virt. screen }
  19.           Fill (#3, 3); { Fill with some characters }
  20.           FillArea (2, 2, 19, 19, #1, 12);
  21.  
  22.           with Anywhere do begin
  23.                InitializeDuplicate (@VirtualScreen); { Copy VirtualScreen }
  24.                Fill (#4, 4); FillArea (3, 3, 18, 18, #4, 9);
  25.                Resize (2, 2, 19, 19); { Resize and truncate }
  26.           end;
  27.  
  28.           Merge (@Anywhere); { Merge virtual screens }
  29.           Restore; { View it }
  30.  
  31.           Intercept; Anywhere.Intercept;
  32.      end;
  33. end.